﻿Imports System.Data
Imports System.IO
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word

Partial Class Content_Administracion_Adm_controls_Contratos
    Inherits System.Web.UI.UserControl

    Dim IDataBase As New Clases.DataBase
    Dim ECConnString As String = ConfigurationManager.AppSettings("dbIP")
    Dim IControles As New Clases.controles
    Dim ctaid As New Integer
    Dim clid As New Integer
    Dim op As New Integer

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        clid = Request.QueryString("id")
        ctaid = Request.QueryString("ctaid")
        op = Request.QueryString("op")

        If op = 1 Then
            Button1.Text = "Realizar Contrato"
        Else
            Button1.Text = "Reimprimir Contrato"
        End If


    End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then

            Label2.Text = IDataBase.getSimpleData("select desp_nombre from vwClientes where cl_id='" & clid & "'", "desp_nombre")
            Label4.Text = IDataBase.getSimpleData("select NombreC from vwClientes where cl_id='" & clid & "'", "NombreC")
            Label6.Text = IDataBase.getSimpleData("select cl_contrato from vwClientes where cl_id='" & clid & "'", "cl_contrato")
            Label8.Text = IDataBase.getSimpleData("select inst_nombre from vwClientes where cl_id='" & clid & "'", "inst_nombre")

            txt_fechaF.Attributes.Add("onkeypress", "return false")
        End If
    End Sub



    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MSWord As New Word.Application
        Dim Documento As New Word.Document
        Dim datoscliente As New System.Data.DataTable
        Dim dmlGetCostumerData As String

        dmlGetCostumerData = "select Distinct Top 1 * from vwClientes where cl_id = '" & clid & "' "
        IDataBase.createDataTable(datoscliente, dmlGetCostumerData)


        If DropDownList1.SelectedValue = "1" Then
            'MsgBox("El archivo se guardara en : C\archivo1.docx")
            FileCopy(AppDomain.CurrentDomain.BaseDirectory & "Files\Contrato5.docx", AppDomain.CurrentDomain.BaseDirectory & "Files\Contrato.docx")
        End If


        Documento = MSWord.Documents.Open(AppDomain.CurrentDomain.BaseDirectory & "Files\Contrato.docx")

        If datoscliente IsNot Nothing Then

            Documento.Bookmarks.Item("Asesor").Range.Text = UCase(datoscliente.Rows(0)("Asesor"))
            Documento.Bookmarks.Item("Asesor2").Range.Text = UCase(datoscliente.Rows(0)("Asesor"))
            Documento.Bookmarks.Item("Asesor3").Range.Text = UCase(datoscliente.Rows(0)("Asesor"))
            Documento.Bookmarks.Item("Asesor4").Range.Text = UCase(datoscliente.Rows(0)("Asesor"))
            Documento.Bookmarks.Item("cdfirma").Range.Text = UCase(txt_cdF.Text)
            Documento.Bookmarks.Item("cdfirma2").Range.Text = UCase(txt_cdF.Text)
            Documento.Bookmarks.Item("cdfirma3").Range.Text = UCase(txt_cdF.Text)
            Documento.Bookmarks.Item("cdfirma4").Range.Text = UCase(txt_cdF.Text)
            Documento.Bookmarks.Item("ClCalle").Range.Text = UCase(datoscliente.Rows(0)("cl_calle"))
            Documento.Bookmarks.Item("ClCalle2").Range.Text = UCase(datoscliente.Rows(0)("cl_calle"))
            Documento.Bookmarks.Item("ClCol").Range.Text = UCase(datoscliente.Rows(0)("cl_colonia"))
            Documento.Bookmarks.Item("ClCol2").Range.Text = UCase(datoscliente.Rows(0)("cl_colonia"))
            Documento.Bookmarks.Item("ClCP").Range.Text = UCase(datoscliente.Rows(0)("cl_cp"))
            Documento.Bookmarks.Item("ClCP2").Range.Text = UCase(datoscliente.Rows(0)("cl_cp"))
            Documento.Bookmarks.Item("ClEdo").Range.Text = UCase(datoscliente.Rows(0)("edo_nombre"))
            Documento.Bookmarks.Item("ClEdo2").Range.Text = UCase(datoscliente.Rows(0)("edo_nombre"))
            Documento.Bookmarks.Item("Cliente").Range.Text = UCase(datoscliente.Rows(0)("NombreC"))
            Documento.Bookmarks.Item("Cliente2").Range.Text = UCase(datoscliente.Rows(0)("NombreC"))
            Documento.Bookmarks.Item("Cliente3").Range.Text = UCase(datoscliente.Rows(0)("NombreC"))
            Documento.Bookmarks.Item("Cliente4").Range.Text = UCase(datoscliente.Rows(0)("NombreC"))
            Documento.Bookmarks.Item("Cliente5").Range.Text = UCase(datoscliente.Rows(0)("NombreC"))
            Documento.Bookmarks.Item("Cliente6").Range.Text = UCase(datoscliente.Rows(0)("NombreC"))
            Documento.Bookmarks.Item("Cliente7").Range.Text = UCase(datoscliente.Rows(0)("NombreC"))
            Documento.Bookmarks.Item("Cliente8").Range.Text = UCase(datoscliente.Rows(0)("NombreC"))
            'Documento.Bookmarks.Item("Cliente9").Range.Text = UCase(datoscliente.Rows(0)("NombreC"))
            Documento.Bookmarks.Item("Cliente10").Range.Text = UCase(datoscliente.Rows(0)("NombreC"))
            Documento.Bookmarks.Item("ClMun").Range.Text = UCase(datoscliente.Rows(0)("mun_nombre"))
            Documento.Bookmarks.Item("ClMun2").Range.Text = UCase(datoscliente.Rows(0)("mun_nombre"))
            Documento.Bookmarks.Item("ClNumero").Range.Text = UCase(datoscliente.Rows(0)("cl_numero"))
            Documento.Bookmarks.Item("ClNumero2").Range.Text = UCase(datoscliente.Rows(0)("cl_numero"))
            Documento.Bookmarks.Item("comision").Range.Text = UCase(datoscliente.Rows(0)("comision"))
            Documento.Bookmarks.Item("fechaC").Range.Text = UCase(txt_fechaF.Text)
            Documento.Bookmarks.Item("fechaC2").Range.Text = UCase(txt_fechaF.Text)
            Documento.Bookmarks.Item("fechaC3").Range.Text = UCase(txt_fechaF.Text)
            Documento.Bookmarks.Item("fechaC4").Range.Text = UCase(txt_fechaF.Text)
            Documento.Bookmarks.Item("fechaC5").Range.Text = UCase(txt_fechaF.Text)
            Documento.Bookmarks.Item("fechaC6").Range.Text = UCase(txt_fechaF.Text)
            Documento.Bookmarks.Item("fechaC7").Range.Text = UCase(txt_fechaF.Text)

            If ddl_tit.SelectedValue = "Sr." Then
                Documento.Bookmarks.Item("srsra").Range.Text = "Sr."
                Documento.Bookmarks.Item("genero").Range.Text = "el"
            Else
                Documento.Bookmarks.Item("srsra").Range.Text = "Sra."
                Documento.Bookmarks.Item("genero").Range.Text = "la"
            End If


            Documento.Bookmarks.Item("Inst").Range.Text = UCase(datoscliente.Rows(0)("inst_nombre"))
            Documento.Bookmarks.Item("Inst2").Range.Text = UCase(datoscliente.Rows(0)("inst_nombre"))
            Documento.Bookmarks.Item("Inst3").Range.Text = UCase(datoscliente.Rows(0)("inst_nombre"))
            Documento.Bookmarks.Item("Inst4").Range.Text = UCase(datoscliente.Rows(0)("inst_nombre"))
            Documento.Bookmarks.Item("Inst5").Range.Text = UCase(datoscliente.Rows(0)("inst_nombre"))
            Documento.Bookmarks.Item("Inst6").Range.Text = UCase(datoscliente.Rows(0)("inst_nombre"))
            Documento.Bookmarks.Item("Inst7").Range.Text = UCase(datoscliente.Rows(0)("inst_nombre"))
            Documento.Bookmarks.Item("Inst8").Range.Text = UCase(datoscliente.Rows(0)("inst_nombre"))
            Documento.Bookmarks.Item("Inst9").Range.Text = UCase(datoscliente.Rows(0)("inst_nombre"))
            Documento.Bookmarks.Item("Inst10").Range.Text = UCase(datoscliente.Rows(0)("inst_nombre"))
            Documento.Bookmarks.Item("InstCalle").Range.Text = UCase(datoscliente.Rows(0)("inst_calle"))
            Documento.Bookmarks.Item("InstCol").Range.Text = UCase(datoscliente.Rows(0)("inst_colonia"))
            Documento.Bookmarks.Item("InstCP").Range.Text = UCase(datoscliente.Rows(0)("inst_cp"))
            Documento.Bookmarks.Item("InstTel").Range.Text = UCase(datoscliente.Rows(0)("inst_numero"))
            ' Documento.Bookmarks.Item("InstTel2").Range.Text = UCase(datoscliente.Rows(0)("nombre"))
            Documento.Bookmarks.Item("noCto").Range.Text = UCase(datoscliente.Rows(0)("cl_contrato"))
            Documento.Bookmarks.Item("noCto2").Range.Text = UCase(datoscliente.Rows(0)("cl_contrato"))
            Documento.Bookmarks.Item("noCto3").Range.Text = UCase(datoscliente.Rows(0)("cl_contrato"))


            If datoscliente.Rows(0)("cl_discrecional") = "NO" Then
                Documento.Bookmarks.Item("disc").Range.Text = UCase(datoscliente.Rows(0)("cl_discrecional"))
                Documento.Bookmarks.Item("disc2").Range.Text = UCase(datoscliente.Rows(0)("cl_discrecional"))
            End If




        End If








        Documento.Save()
        MSWord.Visible = True
    End Sub

    Protected Sub btnRegresar2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRegresar2.Click
        Response.Redirect("Beneficiarios.aspx?id=" & clid & "&ctaid=" & ctaid & "&op=1")
    End Sub


    Protected Sub bindClientes()

    End Sub
End Class
